Kit PC World De Ampliacion De Windows 95

home *** CD-ROM | disk | FTP | other *** search

/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / cw15 / tpw15.z / WIZARD.TPL < prev next >

Wrap

Text File | 1995-09-05 | 19KB | 550 lines

#TEMPLATE(Wizards,'Clarion for Windows 1.5 Wizard Templates') #HELP('CW15HELP.HLP') #GROUP(%DeclareSymbols) #DECLARE(%GenerationReporting) #SET(%GenerationReporting,%False) #DECLARE(%ReplaceExistingProcedures) #DECLARE(%TXAFile) #DECLARE(%Comments) #DECLARE(%CurrentProcedure) #DECLARE(%CurrentTab) #DECLARE(%InitializeTab) #! #DECLARE(%WindowWidth) #DECLARE(%WindowHeight) #DECLARE(%WindowButtonRows) #DECLARE(%WindowButtonColumns) #! #DECLARE(%WorksheetWidth) #DECLARE(%WorksheetHeight) #DECLARE(%WorksheetButtonRows) #DECLARE(%WorksheetButtonColumns) #! #DECLARE(%MaximumTopOffset) #DECLARE(%CurrentX) #DECLARE(%CurrentY) #DECLARE(%CurrentLineLength) #DECLARE(%ValueConstruct) #DECLARE(%HoldConstruct) #DECLARE(%TestHeight) #DECLARE(%TestWidth) #DECLARE(%TestControlType) #DECLARE(%PictureType) #DECLARE(%RelationRows) #DECLARE(%RelationCols) #DECLARE(%TabLineCount) #DECLARE(%CheckIndentWidth) #DECLARE(%CurrentTabLength) #DECLARE(%CurrentTabLineLength) #DECLARE(%ControlPlacementTries) #DECLARE(%VerticalSpaceNextControl) #DECLARE(%GenerateProgramSection) #DECLARE(%ProcCount) #DECLARE(%ContCounter) #! #DECLARE(%RelationList),MULTI #DECLARE(%BrowseFiles),UNIQUE #DECLARE(%ChildBrowseFiles),UNIQUE #DECLARE(%SelectFiles),UNIQUE #DECLARE(%UpdateFiles),UNIQUE #! #DECLARE(%ProcedureList),MULTI #DECLARE(%QuickProcedureType,%ProcedureList) #DECLARE(%QuickProcedurePrimary,%ProcedureList) #DECLARE(%QuickProcedurePrimaryKey,%ProcedureList) #DECLARE(%QuickProcedureDescription,%ProcedureList) #DECLARE(%QuickProcedureDefault,%ProcedureList) #DECLARE(%QuickProcedureWindow,%ProcedureList) #DECLARE(%QuickProcedureReport,%ProcedureList) #! #DECLARE(%QuickOtherFiles,%ProcedureList),UNIQUE #! #DECLARE(%WindowLayerID,LONG),UNIQUE #DECLARE(%WindowLayerTabText,%WindowLayerID) #DECLARE(%WindowLayerTabREQ,%WindowLayerID) #DECLARE(%WindowLayerTopOffset,%WindowLayerID) #DECLARE(%WindowLayerBottomOffset,%WindowLayerID) #DECLARE(%WindowLayerSpecialCase,%WindowLayerID) #DECLARE(%WindowLayerCheckIndentLevel,%WindowLayerID) #DECLARE(%WindowLayerClosed,%WindowLayerID) #! #DECLARE(%WindowControlID,%WindowLayerID,LONG),MULTI #DECLARE(%WindowControl,%WindowControlID) #DECLARE(%WindowControlXOffset,%WindowControlID) #DECLARE(%WindowControlYOffset,%WindowControlID) #DECLARE(%WindowControlWidth,%WindowControlID) #DECLARE(%WindowControlHeight,%WindowControlID) #DECLARE(%WindowControlStatement,%WindowControlID) #! #DECLARE(%ProcedureDataItemID,LONG),MULTI #DECLARE(%ProcedureDataItem,%ProcedureDataItemID) #DECLARE(%ProceduredataItemType,%ProcedureDataItemID) #! #DECLARE(%QuickTemplateInstance,LONG),MULTI #DECLARE(%QuickTemplateType,%QuickTemplateInstance) #DECLARE(%QuickTemplateParent,%QuickTemplateInstance) #DECLARE(%QuickTemplatePrimary,%QuickTemplateInstance) #DECLARE(%QuickTemplatePrimaryKey,%QuickTemplateInstance) #DECLARE(%QuickTemplateProcProp,%QuickTemplateInstance) #DECLARE(%QuickTemplateControl,%QuickTemplateInstance),MULTI #DECLARE(%QuickTemplateSecondaryFiles,%QuickTemplateInstance),UNIQUE #! #DECLARE(%FileList),MULTI #DECLARE(%FileListPromptWidth,%FileList) #DECLARE(%FileListControlsWidth,%FileList) #DECLARE(%FileListDescription,%FileList) #DECLARE(%FileListTab,%FileList),MULTI #DECLARE(%FileListTabHasPrompts,%FileListTab) #! #DECLARE(%FieldListID,%FileList,LONG),UNIQUE #DECLARE(%FieldList,%FieldListID) #DECLARE(%FieldListType,%FieldListID) #DECLARE(%FieldListJustification,%FieldListID) #DECLARE(%FieldListLookup,%FieldListID) #DECLARE(%FieldListLookupKey,%FieldListID) #DECLARE(%FieldListLookupField,%FieldListID) #DECLARE(%FieldListVerticalSpace,%FieldListID) #DECLARE(%FieldListControl,%FieldListID),MULTI #DECLARE(%FieldListControlType,%FieldListControl) #DECLARE(%FieldListControlXOffset,%FieldListControl) #DECLARE(%FieldListControlYOffset,%FieldListControl) #DECLARE(%FieldListControlWidth,%FieldListControl) #DECLARE(%FieldListControlHeight,%FieldListControl) #DECLARE(%FieldListControlOrig,%FieldListControl) #DECLARE(%FieldListControlLink,%FieldListControl) #DECLARE(%FieldListCheckColumn,%FieldListID) #DECLARE(%FieldListLinkList,%FieldListID),MULTI #DECLARE(%FieldListTab,%FieldListID) #DECLARE(%FieldListHeader,%FieldListID) #DECLARE(%FieldListPicture,%FieldListID) #DECLARE(%FieldListPromptWidth,%FieldListID) #DECLARE(%FieldListBrowseWidth,%FieldListID) #DECLARE(%FieldListTotalWidth,%FieldListID) #DECLARE(%FieldListTotalHeight,%FieldListID) #DECLARE(%FieldListRequiresEnd,%FieldListID) #DECLARE(%FieldListReportControl,%FieldListID),MULTI #DECLARE(%FieldListReportControlType,%FieldListReportControl) #DECLARE(%FieldListReportControlXOffset,%FieldListReportControl) #DECLARE(%FieldListReportControlYOffset,%FieldListReportControl) #DECLARE(%FieldListReportControlWidth,%FieldListReportControl) #DECLARE(%FieldListReportControlHeight,%FieldListReportControl) #! #DECLARE(%KeyListID,%FileList,LONG),UNIQUE #DECLARE(%KeyList,%KeyListID) #DECLARE(%KeyListTab,%KeyListID) #DECLARE(%KeyListNoPopulate,%KeyListID) #DECLARE(%KeyListDescription,%KeyListID) #DECLARE(%KeyListField,%KeyListID),MULTI #! #INSERT(%QuickBrowseDeclarations) #INSERT(%QuickFormDeclarations) #INSERT(%QuickAppDeclarations) #INSERT(%QuickDeclareAdditions) #INSERT(%QuickDeclareFields) #INSERT(%QuickDeclareProcedure) #INSERT(%QuickDeclareDefaults) #!-------------------------------------------------------------------------- #GROUP(%QuickDeclareDefaults) #DECLARE(%HighestUserLevel) #DECLARE(%Menubar) #DECLARE(%LayerWindow) #DECLARE(%LayerPreSheet) #DECLARE(%LayerPostSheet) #DECLARE(%LayerFirstChildBrowse) #DECLARE(%MaximumSheetHeight) #DECLARE(%MaximumSheetWidth) #DECLARE(%MinimumSheetWidth) #DECLARE(%MinimumTextHeight) #DECLARE(%MinimumBrowseHeight) #DECLARE(%MaximumBrowseItemWidth) #DECLARE(%InitialSheetYOffset) #DECLARE(%DefaultXOffset) #DECLARE(%DefaultYOffset) #DECLARE(%DefaultReportXOffset) #DECLARE(%DefaultReportInitialYOffset) #DECLARE(%DefaultReportYOffset) #DECLARE(%DefaultReportTextYOffset) #DECLARE(%DefaultButtonWidth) #DECLARE(%DefaultButtonHeight) #DECLARE(%DefaultRadioHeight) #DECLARE(%DefaultRadioWidth) #DECLARE(%DefaultCheckHeight) #DECLARE(%DefaultCheckBoxXOffset) #DECLARE(%DefaultPromptWidth) #DECLARE(%DefaultPromptHeight) #DECLARE(%DefaultControlHeight) #DECLARE(%DefaultControlWidth) #DECLARE(%MinimumControlWidth) #DECLARE(%DefaultPromptYOffset) #DECLARE(%DefaultListItemHeight) #DECLARE(%MaximumRelationCols) #DECLARE(%MinimumTabLength) #DECLARE(%TabTextOffset) #DECLARE(%TabLineVerticalOffset) #DECLARE(%TabDefaultVerticalOffset) #DECLARE(%DefaultSpinWidthOffset) #DECLARE(%MaximumCheckColumns) #DECLARE(%CheckColumnWidth) #DECLARE(%MaximumBrowseFields) #DECLARE(%RadioInitialYOffset) #DECLARE(%DefaultRadioXOffset) #DECLARE(%DefaultRadioYOffset) #DECLARE(%TopControlOffset) #DECLARE(%MiddleControlOffset) #DECLARE(%BottomControlOffset) #DECLARE(%TextControlOffset) #DECLARE(%DefaultSelectControlText) #DECLARE(%DefaultInsertControlText) #DECLARE(%DefaultChangeControlText) #DECLARE(%DefaultDeleteControlText) #DECLARE(%DefaultCancelControlText) #DECLARE(%DefaultCloseControlText) #DECLARE(%DefaultHelpControlText) #DECLARE(%DefaultOKControlText) #!-------------------------------------------------------------------------- #GROUP(%BeginGeneration) #SET(%TXAFile,%Application & '.txa') #CREATE(%TXAFile) #!-------------------------------------------------------------------------- #GROUP(%GenerateProcedures) #SET(%ProcCount,0) #MESSAGE('Wizard Code Generation Progress',0) #MESSAGE('Beginning Generation',1) #INSERT(%BeginGeneration) #IF(%GenerateProgramSection) [APPLICATION] PROCEDURE Main DICTIONARY '%Application.DCT' #ENDIF #FOR(%ProcedureList) #SET(%ProcCount,%ProcCount + 1) #MESSAGE('Generating Procedure ' & %ProcCount & ': ' & %ProcedureList,1) #MESSAGE('Generating Symbols',2) #INSERT(%ResetGlobalSymbols) #IF(%QuickProcedurePrimary) #FIX(%FileList,%QuickProcedurePrimary) #IF(NOT %FileList) #ADD(%FileList,%QuickProcedurePrimary) #INSERT(%AccumulateFieldList,%FileList) #ENDIF #ENDIF #SET(%CurrentProcedure,%ProcedureList) #MESSAGE('Constructing Procedure',2) #CASE(%QuickProcedureType) #OF('Clarion Browse') #INSERT(%ConstructQuickBrowse) #OF('Clarion Form') #INSERT(%ConstructQuickForm) #OF('Clarion Frame') #INSERT(%ConstructQuickApp) #OF('Clarion Report') #ELSE #CYCLE #ENDCASE #FIX(%FileList,%QuickProcedurePrimary) #INSERT(%GenerateProcedure) #ENDFOR #PURGE(%RelationList) #PURGE(%BrowseFiles) #PURGE(%ChildBrowseFiles) #PURGE(%SelectFiles) #PURGE(%UpdateFiles) #PURGE(%ProcedureList) #MESSAGE('Importing...',1) #INSERT(%CloseAndImport) #!-------------------------------------------------------------------------- #GROUP(%ResetGlobalSymbols) #INSERT(%SetGlobalDefaults) #SET(%HighestUserLevel,9999) #SET(%Menubar,10000) #SET(%LayerWindow,10001) #SET(%LayerPostSheet,10002) #SET(%LayerFirstChildBrowse,9950) #SET(%TopControlOffset,0) #SET(%MiddleControlOffset,10000) #SET(%BottomControlOffset,20000) #SET(%TextControlOffset,30000) #FREE(%QuickTemplateInstance) #FREE(%ProcedureDataItemID) #FREE(%WindowLayerID) #FREE(%RelationList) #!-------------------------------------------------------------------------- #GROUP(%GenerateProcedure) #MESSAGE('',3) #MESSAGE('Generating Procedure Header',2) #INSERT(%GenerateProcedureHeader) #MESSAGE('Generating File List',2) #INSERT(%GenerateFileList) #MESSAGE('Generating Procedure Prompts',2) #INSERT(%GenerateProcedurePrompts) #MESSAGE('Generating Field Prompts',2) #INSERT(%GenerateFieldPrompts) #MESSAGE('Generating Extensions',2) #INSERT(%GenerateAdditionPrompts) #IF(%QuickProcedureWindow) #MESSAGE('Generating Window',2) #INSERT(%GenerateWindow) #ENDIF #IF(%QuickProcedureReport) #MESSAGE('Generating Report',2) #INSERT(%GenerateReport) #ENDIF #MESSAGE('',2) #!-------------------------------------------------------------------------- #GROUP(%CloseAndImport) #CLOSE(%TXAFile) #!CLOSE(%Comments) #IMPORT(%TXAFile),REPLACE #!-------------------------------------------------------------------------- #GROUP(%GenerateFileList) [FILES] #IF(%QuickProcedureWindow) #FOR(%QuickTemplateInstance),WHERE(%QuickTemplatePrimary) [PRIMARY] %QuickTemplatePrimary [INSTANCE] %QuickTemplateInstance #IF(%QuickTemplatePrimaryKey) [KEY] %QuickTemplatePrimaryKey #ENDIF #IF(ITEMS(%QuickTemplateSecondaryFiles)) [SECONDARY] #FOR(%QuickTemplateSecondaryFiles) %QuickTemplateSecondaryFiles #ENDFOR #ENDIF #ENDFOR #ELSIF(%QuickProcedureReport) [PRIMARY] %QuickProcedurePrimary [INSTANCE] 0 #IF(%QuickProcedurePrimaryKey) [KEY] %QuickProcedurePrimaryKey #ENDIF #ENDIF #IF(ITEMS(%QuickOtherFiles)) [OTHERS] #FOR(%QuickOtherFiles) %QuickOtherFiles #ENDFOR #ENDIF #!-------------------------------------------------------------------------- #GROUP(%GenerateWindow) [WINDOW] #IF(%QuickProcedureType = 'Clarion Frame') AppFrame APPLICATION('Application'),AT(,,400,220),STATUS(-1,80,120,45),SYSTEM,MAX,RESIZE,FONT('MS Sans Serif',8,,) #ELSE QuickWindow WINDOW('%'QuickProcedureDescription'),AT(,,%WindowWidth,%WindowHeight),FONT('MS Sans Serif',8,,),IMM,SYSTEM,GRAY,MDI,HLP('%ProcedureList') #ENDIF #FIX(%WindowLayerID,%MenuBar) #SUSPEND #?MENUBAR #FOR(%WindowControlID) %WindowControlStatement #ENDFOR #?END #RESUME #FIX(%WindowLayerID,%LayerPreSheet) #INSERT(%ConstructWindowLayer) #SUSPEND #?SHEET,AT(%DefaultXOffset,%DefaultYOffset,%WorksheetWidth,%WorksheetHeight),USE(?CurrentTab),#ORIG(CurrentTab) #FOR(%WindowLayerID),WHERE(%WindowLayerID =< %HighestUserLevel AND %WindowLayerID > %LayerPreSheet) TAB('%WindowLayerTabText') #INSERT(%ConstructWindowLayer) END #ENDFOR #?END #RESUME #FIX(%WindowLayerID,%LayerPostSheet) #INSERT(%ConstructWindowLayer) #FIX(%WindowLayerID,%LayerWindow) #INSERT(%ConstructWindowLayer) END #!-------------------------------------------------------------------------- #GROUP(%ConstructWindowLayer) #FOR(%WindowControlID) #FIND(%QuickTemplateControl,%WindowControl) #IF(%QuickTemplateControl) #INSERT(%PopulateControlTemplate) #ELSE #FIND(%FieldList,%WindowControl) #IF(%FieldList) #IF(%WindowLayerID = %LayerWindow) #INSERT(%PopulateDictionaryControl,%WindowControlXOffset,%WindowControlYOffset,%WindowWidth,%WindowHeight) #ELSE #INSERT(%PopulateDictionaryControl,%WindowControlXOffset,%WindowControlYOffset,%WorksheetWidth,%WorksheetHeight) #ENDIF #ELSE %WindowControlStatement,USE(%WindowControl),AT(%WindowControlXOffset,%WindowControlYOffset,%WindowControlWidth,%WindowControlHeight) #ENDIF #ENDIF #ENDFOR #!-------------------------------------------------------------------------- #GROUP(%GenerateReport),AUTO #DECLARE(%KeyFieldList),MULTI #FIX(%FileList,%QuickProcedurePrimary) #FIX(%File,%QuickProcedurePrimary) #FIX(%Key,%QuickProcedurePrimaryKey) [REPORT] report REPORT,AT(1000,2000,6000,7000),PRE(RPT),FONT('Arial',10,,),THOUS HEADER,AT(1000,1000,6000,1000) END detail DETAIL #SET(%CurrentY,%DefaultReportInitialYOffset) #FOR(%KeyField) #FOR(%FieldListID),WHERE(%FieldList = %KeyField) #FOR(%FieldListReportControl) #SET(%ValueConstruct,%FieldListReportControl) #SET(%ValueConstruct,REPLACE(%ValueConstruct,'MSG','')) %ValueConstruct,AT(%DefaultReportXOffset,%CurrentY,,) #ENDFOR #ADD(%KeyFieldList,%KeyField) #SET(%CurrentY,%CurrentY + %DefaultReportYOffset) #ENDFOR #ENDFOR #FIX(%File,%QuickProcedurePrimary) #FOR(%FieldListID),WHERE(%FieldListType <> 'MEMO') #FIX(%KeyFieldList,%FieldList) #IF(NOT %KeyFieldList) #FOR(%FieldListReportControl) #SET(%ValueConstruct,%FieldListReportControl) #SET(%ValueConstruct,REPLACE(%ValueConstruct,'MSG','')) %ValueConstruct,AT(%DefaultReportXOffset,%CurrentY,,) #ENDFOR #SET(%CurrentY,%CurrentY + %DefaultReportYOffset) #ENDIF #ENDFOR END #FOR(%FieldListID),WHERE(%FieldListType = 'MEMO') #SET(%ValueConstruct,%DefaultReportTextYOffset * 2) %FieldList:Detail DETAIL,AT(,,6000,%ValueConstruct),USE(?%FieldList:Detail) #SET(%ValueConstruct,6000 - %DefaultReportXOffset * 2) TEXT,AT(%DefaultReportTextYOffset,%DefaultReportTextYOffset,%ValueConstruct,4000) END #ENDFOR FOOTER,AT(1000,9000,6000,1000) END END #!------------------------------------------------------- #GROUP(%AddPrimaryBrowse,%NewProcedureFile) #DECLARE(%NewProcedureName) #FIND(%File,%NewProcedureFile) #SET(%NewProcedureName,'Browse' & %File) #IF(NOT %ReplaceExistingProcedures) #FIX(%Procedure,%NewProcedureName) #ENDIF #IF(NOT %Procedure) #FIX(%ProcedureList,%NewProcedureName) #IF(NOT %ProcedureList) #ADD(%ProcedureList,%NewProcedureName) #SET(%QuickProcedureType,'Clarion Browse') #SET(%QuickProcedurePrimary,%File) #SET(%QuickProcedureDescription,'Browse the ' & %File & ' File') #SET(%QuickProcedureDefault,'Primary Browse') #SET(%QuickProcedureWindow,%True) #ENDIF #ENDIF #!------------------------------------------------------- #GROUP(%AddSecondaryBrowse,%NewProcedureKey) #DECLARE(%NewProcedureName) #FIND(%Key,%NewProcedureKey) #SET(%NewProcedureName,'Browse' & %Key) #IF(NOT %ReplaceExistingProcedures) #FIX(%Procedure,%NewProcedureName) #ENDIF #IF(NOT %Procedure) #FIX(%ProcedureList,%NewProcedureName) #IF(NOT %ProcedureList) #ADD(%ProcedureList,%NewProcedureName) #SET(%QuickProcedureType,'Clarion Browse') #SET(%QuickProcedurePrimary,%File) #SET(%QuickProcedurePrimaryKey,%Key) #SET(%QuickProcedureDescription,'Browse the ' & %File & ' File by ' & %Key) #SET(%QuickProcedureDefault,'Secondary Browse') #SET(%QuickProcedureWindow,%True) #ENDIF #ENDIF #!------------------------------------------------------- #GROUP(%AddSelectBrowse,%NewProcedureFile) #DECLARE(%NewProcedureName) #FIX(%File,%NewProcedureFile) #SET(%NewProcedureName,'Select' & %File) #IF(NOT %ReplaceExistingProcedures) #FIX(%Procedure,%NewProcedureName) #ENDIF #IF(NOT %Procedure) #FIX(%ProcedureList,%NewProcedureName) #IF(NOT %ProcedureList) #ADD(%ProcedureList,%NewProcedureName) #SET(%QuickProcedureType,'Clarion Browse') #SET(%QuickProcedurePrimary,%File) #SET(%QuickProcedureDescription,'Select a ' & %File & ' Record') #SET(%QuickProcedureDefault,'Select Browse') #SET(%QuickProcedureWindow,%True) #ENDIF #ENDIF #!------------------------------------------------------- #GROUP(%AddUpdateProcedure,%NewProcedureFile,%OverrideProcedureName) #DECLARE(%NewProcedureName) #IF(NOT %OverrideProcedureName) #SET(%NewProcedureName,'Update' & %NewProcedureFile) #ELSE #SET(%NewProcedureName,%OverrideProcedureName) #ENDIF #IF(NOT %ReplaceExistingProcedures) #FIX(%Procedure,%NewProcedureName) #ENDIF #IF(NOT %Procedure) #FIX(%ProcedureList,%NewProcedureName) #IF(NOT %ProcedureList) #ADD(%ProcedureList,%NewProcedureName) #SET(%QuickProcedureType,'Clarion Form') #SET(%QuickProcedurePrimary,%NewProcedureFile) #SET(%QuickProcedureDescription,'Update the ' & %NewProcedureFile & ' File') #SET(%QuickProcedureDefault,'Update Form') #SET(%QuickProcedureWindow,%True) #ENDIF #ENDIF #!------------------------------------------------------- #GROUP(%AddReportProcedure,%NewProcedurePrimary) #DECLARE(%NewProcedureName) #FIX(%File,%NewProcedurePrimary) #IF(%File) #SET(%NewProcedureName,'Print' & %File) #ELSE #FIND(%Key,%NewProcedurePrimary) #SET(%NewProcedureName,'Print' & %Key) #ENDIF #IF(NOT %ReplaceExistingProcedures) #FIX(%Procedure,%NewProcedureName) #ENDIF #IF(NOT %Procedure) #FIX(%ProcedureList,%NewProcedureName) #IF(NOT %ProcedureList) #ADD(%ProcedureList,%NewProcedureName) #SET(%QuickProcedureType,'Clarion Report') #SET(%QuickProcedurePrimary,%File) #SET(%QuickProcedurePrimaryKey,%Key) #IF(%Key) #SET(%QuickProcedureDescription,'Print the ' & %File & ' File by ' & %Key) #ELSE #SET(%QuickProcedureDescription,'Print the ' & %File & ' File') #ENDIF #SET(%QuickProcedureDefault,'Report') #SET(%QuickProcedureReport,%True) #ENDIF #ENDIF #!-------------------------------------------------------------------------- #INCLUDE('WProc.TPW') #INCLUDE('WControl.TPW') #INCLUDE('WField.TPW') #INCLUDE('WBrowse.TPW') #INCLUDE('WForm.TPW') #INCLUDE('WFrame.TPW') #INCLUDE('WReport.TPW') #INCLUDE('WStart.TPW') #INCLUDE('WApp.TPW') #INCLUDE('WDefault.TPW')